perm filename FOO.LAP[MAC,LSP]1 blob
sn#341760 filedate 1978-03-13 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002
C00005 ENDMK
Cā;
'(THIS IS THE LAP FOR (FOO DSK (MAC LSP)))
'(COMPILED BY LISP COMPILER /708)
;COMPILED ON MARCH 13, 1978, AT 4:23 PM
(LAP BAR SUBR)
(ARGS BAR (NIL . 0))
(PUSH P (% 0 0 '7))
(MOVEI 2 '2)
(MOVE 1 0 P)
(SUB P (% 0 0 1 1))
(JCALL 2 '*PLUS)
NIL
(LAP FOO SUBR)
(ARGS FOO (NIL . 0))
(PUSH P (% 0 0 '7))
(MOVEI 2 '2)
(POP P 1)
(JCALL 2 '*PLUS)
NIL